Option Explicit
Sub D_Sample020()
    With Worksheets
        .Add After:=.Item(.Count) 				'sWb̫᭱
        .Add Before:=.Item(1) 					'sWb̫e
        .Add Count:=3 						'wiƨӷsW
    End With
End Sub

